" DIVTR"风格名称：","","",25,1 DIVTR"风格目录：","","
放置本风格图片的目录，如目录为 \Skins\Default 则只填写 Default，填写后将不能修改",25,1 DIVTR"风格备注：","","",50,1 Response.Write"

" Response.Write"" Response.Write"" Response.Write""&Temp End If Response.Write"" End Sub Sub SaveEdit() Dim Temp,Content,ResultErr,i For i = 0 to Ubound(Skinsflag) Content=Content&"["&Skinsflag(i)&"]"&Request("TmpName_"&i)&"[/"&Skinsflag(i)&"]" If Request("TmpName_"&i)="" Then ResultErr=ResultErr&"["&Skinsflag(i)&"]
" Next MNBoard.Execute("update [i_Skins] set Content='"&Replace(Content,"'","''")&"' where SkinID="&ID&"") If Request.Form("Add")="1" Then Showtable"进入下一步","成功更改了模版结构，现在编辑风格图片-->>" EditPic() Else If ResultErr<>"" Then Suc"","成功更改了模版,但是以下的元素：
"&ResultErr&" 还没有内容!

请到风格管理里面编辑！

","?" Else Suc"","成功更改了模版","?" End If End If MNBoard.Cache.Clean("Skin_"& ID) MNBoard.NetLog"操作后台_修改风格代码" End Sub Sub EditPic() Dim Temp,Pic,i,SkinName IF Request("PIC6")="" Then Set RS=MNBoard.Execute("Select SkinName,Pic From [i_Skins] Where SkinID="&ID) If not Rs.Eof Then SkinName=Rs(0) pic=Rs(1) Rs.Close Else Goback"","找不到这条记录的数据，可能已经删除" Exit Sub End If If Pic<>"" Then Pic=Split(PIC,"|") Else Pic=Split("|||||||||||||||||||||||||||","|") End if Response.Write"

"&SkinName&"    编辑颜色/图片

说明：颜色主要用于模板以外的地方，留空为透明色，请与模板相匹配。
图片各项除了用图片代码也可以用文字代替。
图片代码样例：<img src="Skins/20051201/user.gif" border="0">

" DIVTR SkinsPIC(0),""," 用于在模版以外的线条颜色",22,1 DIVTR SkinsPIC(1),""," 用于与模版以外的表格表面浅色",22,2 DIVTR SkinsPIC(2),""," 同上，但比上面的的颜色略深一些",22,2 For i = 3 to Ubound(SkinsPIC) DIVTR SkinsPIC(i),"","",22,1 next Response.Write"

" ELse For i = 0 to Ubound(SkinsPIC) PIC=PIC&Replace(Request.Form("PIC"&i),"|","|")&"|" Next MNBoard.Execute("Update [i_Skins] Set PIC='"&Replace(PIC,"'","''")&"' Where SkinID="&ID) Suc"","风格的图片修改成功。","?" MNBoard.Cache.Clean("Skin_"& ID) MNBoard.NetLog"操作后台_修改风格图片" End If End Sub Sub Auto Dim Temp MNBoard.Execute("Update [i_Config] Set SkinID="&ID) MNBoard.Execute("Update [i_Skins] Set IsDefault=0") MNBoard.Execute("Update [i_Skins] Set IsDefault=1 where SkinID="&ID ) '更新缓存 If MNBoard.Cache.Valid("parameter") Then Temp=Split(MNBoard.Cache.Value("parameter"),"<$$>") MNBoard.Cache.Add "parameter",Replace(Join(Temp,"<$$>"),"<$$>"&Temp(2)&"<$$>","<$$>"&ID&"<$$>"),dateadd("n",2000,MNBoard.NowBBSTime) End If Suc"","风格设为论坛默认使用成功！","?" End Sub Sub IsMode If MNBoard.Execute("Select IsMode From [i_Skins] where SkinID="&ID)(0)=0 Then MNBoard.Execute("Update [i_Skins] Set IsMode=0") MNBoard.Execute("Update [i_Skins] Set IsMode=1 where SkinID="&ID ) Suc"","此风格被设置为添加论坛风格的引用模版！","?" Else MNBoard.Execute("Update [i_Skins] Set IsMode=0 where SkinID="&ID ) Suc"","已经成功取消了作为添加论坛风格的引用模版！","?" End If End Sub Sub Pass Dim s If MNBoard.Execute("Select Pass From [i_Skins] where SkinID="&ID)(0)=0 Then MNBoard.Execute("Update [i_Skins] Set Pass=1 where SkinID="&ID ) Suc"","成功的开启了风格,请 重建前台菜单 ","?" MNBoard.NetLog"操作后台_风格设置显示！" Else MNBoard.Execute("Update [i_Skins] Set Pass=0 where SkinID="&ID ) Suc"","成功的禁止了该风格在前台的显示！请 重建前台菜单","?" MNBoard.NetLog"操作后台_风格设置不显示" End IF End Sub Sub Del MNBoard.Execute("Delete From [i_Skins] Where SkinID="&ID) MNBoard.Cache.clean("Skin_"& ID) Suc"","风格已被成功删除！","?" MNBoard.NetLog"操作后台_删除风格" End Sub Sub Load() Response.Write"

导入风格模版数据

" DIVTR"导入风格模版数据库名：","","",25,1 Response.Write"

" End Sub Sub DataPost Dim Msg,MdbName,S,Temp IF ID="" Then GoBack"","您还没有选定一个项目！":Exit Sub MdbName=request("SkinMdb") SkinConnection(mdbname) If Request("To")="InputSkin" Then If Request.Form("DelFlag")="1" Then SkinConn.Execute("Delete * From [i_Skins] Where SkinID In ("&ID&")") Suc "","成功的把"&mdbname&"的风格模版成功删除！","?":Exit Sub Else Set Rs=SkinConn.Execute("select SkinName,Content,Pic,remark,SkinDir from [i_Skins] where SkinID in ("&ID&") order by SkinID ") While Not Rs.Eof Temp=Replace(Rs(0),"'","''") If Not MNBoard.Execute("Select * From [i_Skins] where SkinName='"&Temp&"'").Eof Then Temp=Temp&"(新)" MNBoard.Execute("Insert Into [i_Skins](SkinName,Content,Pic,Remark,SkinDir,isdefault,ismode,Pass) values('"&Temp&"','"&Replace(Rs(1),"'","''")&"','"&Replace(Rs(2),"'","''")&"','"&Replace(Rs(3),"'","''")&"','"&Replace(Rs(4),"'","''")&"',0,0,0)") Rs.Movenext Wend Rs.Close S="风格模版数据导入成功！" End If Else Set Rs=MNBoard.Execute(" select SkinName,Content,Pic,remark,SkinDir from [i_Skins] where SkinID in ("&ID&") order by SkinID ") While Not Rs.Eof SkinConn.Execute("Insert Into [i_Skins](SkinName,Content,Pic,remark,SkinDir) values('"&Replace(Rs(0),"'","''")&"','"&Replace(Rs(1),"'","''")&"','"&Replace(Rs(2),"'","''")&"','"&Replace(Rs(3),"'","''")&"','"&Replace(Rs(4),"'","''")&"')") Rs.Movenext Wend Rs.Close S="风格模版数据导出成功！" End If SkinConn.Close Set SkinConn=Nothing MNBoard.NetLog"操作后台_"&S Suc"",S,"?" End Sub Sub SkinData Dim Title,FlagName,MdbName,act If Request("Flag")="Load" Then FlagName="导入" act="InputSkin" MdbName=trim(Request.form("SkinMdb")) Title="导入风格模版数据 在"&MdbName&"数据库中的风格列表：" If MdbName="" Then GoBack"","请填写导入风格模版的风格专用数据库！" Exit Sub End If Else FlagName="导出" act="OutSkin" Title="导出论坛现有的风格模版数据" End If If act="InputSkin" Then SkinConnection(MdbName) On error resume next Set Rs=SkinConn.Execute("select SkinID,SkinName,Content,Pic,remark,SkinDir from [i_Skins] order by SkinID") if err Then err.Clear GoBack"","此风格数据库的版本与当前的版本不兼容！":Exit Sub End If Else Set Rs=MNBoard.Execute("select SkinID,SkinName,Content,Pic,remark,SkinDir from [i_Skins] order by SkinID") MdbName="Skins/Skins.mdb" End If Dim Temp,i IF Rs.Eof Then GoBack"","该数据库中没有风格模版的数据！":Exit Sub End IF Temp=Rs.GetRows() Response.Write"

"&Title&"

" Response.Write"

选择

风格名称

信息描述

" For i=0 To Ubound(Temp,2) Response.Write"

"&Temp(1,i)&"

"&Temp(4,i)&"

" Next Response.Write"

"&FlagName&"的数据库： " If act="InputSkin" Then Response.Write"" End If Response.Write"全选

" End Sub Sub SkinConnection(Mdbname) On Error Resume Next Set SkinConn = Server.CreateObject("ADODB.Connection") SkinConn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(MdbName) If Err Then GoBack"",Mdbname&" 数据库不存在！请确认你的路径是否正确，如果没有风格临时数据库，请到MNBoard官方下载" Footer() Response.end End If End Sub %>